home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / falcon / programm.ing / falclib2.lzh / ROUTS / SHRTONES.S < prev    next >
Text File  |  1994-08-17  |  872b  |  66 lines
  1. *
  2. * SHRTONES.S
  3. *
  4. *    @super
  5. *     enter supervisor mode  gemdos($20)
  6. *
  7. *    @user
  8. *     returns to user mode  gemdos($20)
  9. *
  10. *    @waitvbl
  11. *     waits for a vertical blank  xbios(#37)
  12. *
  13. *    @waitkey
  14. *     waits for a keypress, no echo  gemdos(#7)
  15. * Out     d0.b=ascii value
  16. *
  17. *    @exitifkey
  18. *     quits if a key has been pressed
  19. *     gemdos(#11), gemdos(#7)
  20. *
  21. *    @quit
  22. *     terminate process  gemdos(#0)
  23. *
  24.  
  25.  
  26. @super    clr.l    -(sp)
  27.     move    #$20,-(sp)
  28.     trap    #1
  29.     addq.l    #6,sp
  30.     move.l    d0,savedsp0673
  31.     rts
  32. savedsp0673
  33.     ds.l    1
  34.  
  35. @user    move.l    savedsp0673,-(sp)
  36.     move    #$20,-(sp)
  37.     trap    #1
  38.     addq.l    #6,sp
  39.     rts
  40.  
  41. @waitvbl
  42.     move    #37,-(sp)
  43.     trap    #14
  44.     addq.l    #2,sp
  45.     rts
  46.  
  47. @waitkey
  48.     move    #7,-(sp)
  49.     trap    #1
  50.     addq.l    #2,sp
  51.     rts
  52.  
  53. @exitifkey
  54.     move    #11,-(sp)
  55.     trap    #1
  56.     addq.l    #2,sp
  57.     tst.l    d0
  58.     blt    .ut
  59.     rts
  60. .ut    bsr    @waitkey
  61.     move.l    #@quit,(sp)
  62.     rts
  63.  
  64. @quit    clr    -(sp)
  65.     trap    #1
  66.